home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / telecomm / 576 / ruf / midimail.ruf < prev    next >
Text File  |  1992-05-22  |  990b  |  51 lines
  1. ; Logfile für die Midimail
  2. ; Midimail ist 1. Nummer im Register; dial 02241404403 geht auch.
  3. dial $ue"Welche Nummer?"
  4. ; wenn Wahl nicht geglückt -> ende
  5. if ne $0 0 1
  6. ; sende CTRL-X
  7. send \24
  8. ;Label 3
  9. 3:
  10. ; timeout auf 20 sec stellen
  11. timeout 20
  12. ; Warten auf Prompt für Usernamen
  13. rwait "&username:"
  14. ; nicht gekommen -> Fehler
  15. if ne $0 0 2
  16. ; Usernamen senden
  17. send $ue"Username"
  18. ; Warten auf Prompt für Password
  19. rwait "&passwort:"
  20. ; nicht gekommen -> Fehler
  21. if ne $0 0 2
  22. ;Password senden
  23. send $ue"Passwort"
  24. ; CTRL-X senden
  25. send \24
  26. ; Warten auf Befehlsprompt
  27. rwait "&befehl:"
  28. ; kennt man jetzt hoffentlich
  29. if ne $0 0 2
  30. ; inhalt ausgeben lassen
  31. send "i"
  32. ; kontrolle an User
  33. end
  34. 2:
  35. ; Paradebeispiel einer Alertbox
  36. alert $1 "[1][Login hat nichtfunktioniert][Nochmal|Abbruch|Auflegen]"
  37. ; zum anfang zurück
  38. if eq $1 1 3
  39. ; Batch beenden
  40. if eq $1 2 4
  41. ; Auflegen
  42. timeout 2
  43. send "+++"-
  44. rwait "&ok"
  45. send "ath"
  46. end
  47. 1:
  48. alert "[1][Keine Verbindung][OK]"
  49. end
  50.  
  51.